#lang racket

(define (sub n)
  (- n 1)
  )

(define (make-deep n s)
  (cond
    [(zero? n) empty]
    [else (cons s
                (make-deep (sub n) s))]))

(define (depth a-tbl)
  (cond
    [(empty? a-tbl) 0]
    [else (+ 1 (depth (rest a-tbl)))])
  )

; Test
(depth (make-deep 5 'tt))